#!/usr/bin/env -S guile -e main -s
!#
(add-to-load-path (dirname (current-filename)))
(use-modules (grump utils)
             (grump chem)
             ((grump units si) #:select (m s g kg mol J K L atm)))



(define universal-gas-constant
  (* 8.31446261815324 (/ J K mol)))

(define gravitational-acceleration
  (* 9.80665 (/ m s s)))

(define molar-mass-of-air
  (+
   (* 780818) ; (N2)  Nitrogen
   (* 209435) ; (O2)  Oxygen
   (* 9332)   ; (Ar)  Argon
   (* 385)    ; (CO2) Carbon dioxide
   (* 18.2)   ; (Ne)  Neon
   (* 5.2)    ; (He)  Helium
   (* 1.5)    ; (CH4) Methane
   (* 1.1)    ; (Kr)  Krypton
   (* 0.5)    ; (H2)  Hydrogen
   (* 0.3)    ; (N2O) Nitrous oxide
   (* 0.2)    ; (CO)  Carbon monoxide
   (* 0.1)    ; (Xe)  Xenon
   (* 2.9)    ; Trace to 30 ppm
   ))

(define (ideal-gas-volume temperature pressure)
  (* mol universal-gas-constant (/ temperature pressure)))

(define (atmospheric-pressure ))

(define (degrees-celcius temperature)
  (+ (* 273.15 K) temperature))

(define (main args)
  (print! "Hello, World!"))
